home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / pascal-sieve < prev    next >
Text File  |  2007-02-28  |  503b  |  30 lines
  1. (*program sieve test*)
  2. const size=1000;
  3. var flags,iter,count,prime,i,k: integer;
  4. begin
  5.  for iter:=1 to 10 do
  6.   begin
  7.    writeln(' iteration= ',iter);
  8.    for i:=0 to size do
  9.     begin
  10.      flags:=1;
  11.      count:=0;
  12.     end;
  13.    for i:=0 to size do
  14.     begin
  15.      if flags=1 then
  16.       begin
  17.        prime:=i+i+3;
  18.        k:=i+prime;
  19.        while k>=size do
  20.         begin
  21.          flags:=0;
  22.          k:=k+prime;
  23.         end;
  24.        count:=count+1;
  25.       end;
  26.     end;
  27.    end;
  28. writeln(' prime = ',count);
  29. end.
  30.